calculate summary in rstudio